﻿' Frowser - http://www.frowser.net
' Copyright (c) 2010
' by Will Morgenweck, Active Modules, Inc.
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
' DEALINGS IN THE SOFTWARE.
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Web.Script.Services
Imports Newtonsoft.Json
Imports Frowser.Controllers
Namespace Frowser.Services
    <System.Web.Script.Services.ScriptService()> _
    <System.Web.Services.WebService(Namespace:="http://frowser.net/")> _
    <System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
    <ToolboxItem(False)> _
    Public Class Frowser
        Inherits WebServiceBase

        <WebMethod()> _
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)> _
        Public Function GetSite() As String
            Try
                Init()
                Dim sb As New StringBuilder
                sb.Append("{")
                sb.Append(Utilities.JSON.Pair("sitename", PortalName))
                sb.Append(",")
                sb.Append(Utilities.JSON.Pair("siteid", PortalId.ToString))
                sb.Append(",")
                sb.Append(Utilities.JSON.Pair("servicepath", ServicePath))
                sb.Append("}")
                Return BuildResult(sb.ToString, ResultCodes.Success, OutputTypes.JSON, True)
            Catch ex As Exception
                DotNetNuke.Services.Exceptions.LogException(ex)
                Return BuildResult(ex.Message, ResultCodes.FailedWithException, OutputTypes.JSON, False)
            End Try

        End Function

    End Class
End Namespace
